home *** CD-ROM | disk | FTP | other *** search
- /* [atoi.c of JUGPDS Vol.17] */
- /*
- *****************************************************************
- * *
- * Written by Hakuo Katayose (JUG-CP/M No.179) *
- * 49-114 Kawauchi-Sanjuunin-machi *
- * Sendai, Miyagi 980 *
- * Phone: 0222-61-3219 *
- * *
- * Modifird by Toshiya Oota (JUG-CPM No.10) *
- * Sakae ko-po 205 *
- * 5-19-6 Hosoda *
- * Katusikaku Tokyo 124 *
- * *
- * for MS-DOS Lattice C V3.1J & 80186/V20/V30 *
- * *
- * Compiler Option: -ccu -k0(1) -ms -n -v -w *
- * *
- * Edited & tested by Y. Monma (JUG-CP/M Disk Editor) *
- * & T. Ota (JUG-CP/M Sub Disk Editor) *
- * *
- *****************************************************************
- */
-
- /* Library functions for Software Tools */
-
- #include "stdio.h"
- #include "dos.h"
- #include "ctype.h"
- #include "tools.h"
-
- int atoi(n)
- char *n;
- {
- int val, sign;
- char c;
-
- val=0; sign=1;
- while (iswhite(c = *n)) ++n;
- if (c== '-') {sign = -1; n++;}
- /* while (isdigit(c = *n++)) val = val * 10 + c - '0'; Original */
- while (isdigit(c = *n++)) val = val * 10 + itod(c);
- /* for Portability */
- return sign*val;
- }